home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / VTAXIS.S < prev    next >
Text File  |  1993-03-26  |  1KB  |  58 lines
  1. ;*========================================================================
  2. ;* VDIFAST Public Domain VDI bindings.
  3. ;*========================================================================
  4.  
  5.  
  6. ;*------------------------------------------------------------------------
  7. ;*
  8. ;*------------------------------------------------------------------------
  9.  
  10.           globl     _vt_resolution
  11. _vt_resolution:
  12.           moveq.l    #81,d0
  13.           bra        do_it
  14.  
  15.           globl     _vt_axis
  16. _vt_axis:
  17.           moveq.l    #82,d0
  18.           ; fall thru into do_it
  19.  
  20. do_it:
  21. ;    .cargs    #8,handle.w,xres.w,yres.w,xset.w,yset.w
  22.  
  23. handle      =         8
  24. xres      =        10
  25. yres      =        12
  26. xset      =        14
  27. yset      =        18
  28.  
  29.           link        a6,#-4
  30.  
  31. ;          VContrl    #5,d0,,,#2
  32.           move.w    handle(a6),-(sp)    ; contrl[6] ; handle
  33.           move.w    d0,-(sp)            ; contrl[5] ; subfunction
  34.           subq.l    #2,sp                ; contrl[4] ; intout count
  35.           move.w    #2,-(sp)            ; contrl[3] ; intin  count
  36.           subq.l    #2,sp                ; contrl[2] ; ptsout count
  37.           clr.w     -(sp)                ; contrl[1] ; ptsin  count
  38.           move.w    #5,-(sp)            ; contrl[0] ; opcode
  39.  
  40.           subq.l    #4,sp                ;* -> ptsout
  41.           pea        -4(a6)                ;* -> intout
  42.           subq.l    #4,sp                ;* -> ptsin
  43.           pea        xres(a6)            ;* -> intin
  44.           pea        16(sp)                ;* -> contrl
  45.  
  46.           move.l    sp,d1
  47.           jsr        vditrap
  48.  
  49.           move.l    xset(a6),a0
  50.           move.w    -4(a6),(a0)
  51.           move.l    yset(a6),a0
  52.           move.w    -2(a6),(a0)
  53.  
  54.           unlk        a6
  55.           rts
  56.  
  57.           end
  58.